home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000015_bounce-amos-li…net@onelist.com_Tue Sep 1 18:55:42 1998.msg < prev    next >
Text File  |  1998-10-01  |  14KB  |  406 lines
  1. >From bounce-amos-list--874-mcox=access.digex.net@onelist.com  Tue Sep  1 18:55:42 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id SAA15157
  4.     for <mcox@access.digex.net>; Tue, 1 Sep 1998 18:55:41 -0400 (EDT)
  5. Received: (qmail 9884 invoked by alias); 1 Sep 1998 22:49:43 -0000
  6. Received: (qmail 9678 invoked from network); 1 Sep 1998 22:49:38 -0000
  7. Received: from unknown (HELO tungsten.btinternet.com) (194.73.73.81) by pop.onelist.com with SMTP; 1 Sep 1998 22:49:38 -0000
  8. Received: from np5gt [195.171.236.153]  by tungsten.btinternet.com with smtp (Exim 1.70 #1) id 0zDzFA-0005qI-00; Tue, 1 Sep 1998 23:49:45 +0100
  9. Message-ID: <005101bdd5fb$0a0be060$99ecabc3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Tue, 1 Sep 1998 23:51:20 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/alternative; boundary="----=_NextPart_000_004E_01BDD603.6ADC2460"
  23. Subject: [amos-list] This Is annoying.. I keep recieving my own Mail!!!!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_004E_01BDD603.6ADC2460
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: quoted-printable
  35.  
  36. Hey! Here is more of my Code... This Contains GRAVITY... WIND and ALSORT =
  37. OF OTHER STUFF NEEDED 4 GAMES! Read on! BYE!
  38. Hide On=20
  39. Cls 0
  40. Screen Open 0,320,256,64,Lowres
  41. Colour 1,$0
  42. Flash Off=20
  43. Curs Off=20
  44. Degree=20
  45. Cls 0
  46. Colour 8,$777
  47. Colour 5,$F0
  48. Ink 5
  49. Box 0,0 To 319,201
  50.  
  51. '    X    =20
  52. '   /W\   =20
  53. '  /---\  =20
  54. ' / M|G \ =20
  55. '/-------\  =20
  56.  
  57. '   X,Y Coordinates
  58. X#=3D100
  59. Y#=3D100
  60. '   Weight Value=20
  61. WI#=3D0
  62.  
  63. '   Acceleration Value  =20
  64. AC#=3D0
  65. '   Don't Remove: When ACL#=3D0 , ACL# Should Really =3D 1=20
  66. '                 Because to get no change from Multiplication=20
  67. '                 You should multiply by 1 not 0=20
  68. '                 This is the same with weight...
  69. WI#=3DWI#+1
  70. AC#=3DAC#+1
  71. '   Maximum Force of Gravity=20
  72. GM#=3D3.0
  73. '   Maximum Speed on Y axis
  74. YM#=3D7.0-(WI#/2)
  75. '   Maximum Speed on X axis
  76. XM#=3D7.0
  77. '   Gravity Increase=20
  78. GI#=3D0.1
  79. '   Y Thrust Increase =20
  80. YI#=3D0.1
  81. '   X Thrust Increase
  82. XI#=3D0.1
  83. '   Air Resistance  =20
  84. AR#=3D0.05
  85. '   Wind Value and Direction + or -
  86. WD#=3D0.0
  87. '   Maximum Rate of Wind Change : in seconds=20
  88. RW=3D5
  89. '   Speed of Wind Change=20
  90. SW#=3D0.1
  91. '   Maximum Speed of Wind
  92. MS=3D2
  93. '   Fuel Amount =20
  94. FA#=3D100
  95. '   Wall Repulsion Factor
  96. BW#=3D0.5
  97.  
  98. OX=3DX#
  99. OY=3DY#
  100. Do=20
  101.    Ink 0
  102.    Plot X#,Y#
  103.    Plot OX,OY
  104.   =20
  105.    If T=3D0
  106.       T=3DRnd(RW*60)
  107.       WN#=3DRnd((2*MS))-MS
  108.    Else=20
  109.       Dec T
  110.    End If=20
  111.   =20
  112.    If WD#<>WN#
  113.       If Abs(WN#-WD#)>0.09
  114.          WD#=3DWD#+(Sgn(WN#-WD#)*SW#)
  115.       Else=20
  116.          WD#=3DWN#
  117.       End If=20
  118.       WD=3D(WD#*10)
  119.       Ink 0
  120.       Bar 280-20,220 To 280+20,230
  121.       Ink 2
  122.       If WD>0
  123.          Bar 280-WD,220 To 280,230
  124.       End If=20
  125.       If WD<0
  126.          Bar 280,220 To 280-WD,230
  127.       End If=20
  128.    End If=20
  129.   =20
  130.    OX=3DX#
  131.    OY=3DY#
  132.   =20
  133.    If Key State(78)=3D-1
  134.       If SX#<XM#
  135.          SX#=3DSX#+(XI#*AC#)
  136.       End If=20
  137.    Else=20
  138.       If SX#>0
  139.          SX#=3DSX#-AR#
  140.       End If=20
  141.    End If=20
  142.    If Key State(79)=3D-1
  143.       If SX#>-XM#
  144.          SX#=3DSX#-(XI#*AC#)
  145.       End If=20
  146.    Else=20
  147.       If SX#<0
  148.          SX#=3DSX#+AR#
  149.       End If=20
  150.    End If=20
  151.   =20
  152.    If Key State(76)=3D-1 and KEY<>4
  153.       If SY#<YM#
  154.          SY#=3DSY#+(YI#/WI#)*(AC#/2)
  155.       End If=20
  156.       If SY#>YM#
  157.          SY#=3DYM#
  158.       End If=20
  159.       FA#=3DFA#-Abs(SY#/100)
  160.    Else=20
  161.       If SY#>0
  162.          SY#=3DSY#-GI#
  163.       End If=20
  164.    End If=20
  165.   =20
  166.    If Key State(77)=3D-1 and KEY<>4
  167.       If SY#>-YM#
  168.          SY#=3DSY#-(YI#/WI#)*(AC#/2)
  169.       End If=20
  170.       If SY#<-YM#
  171.          SY#=3D-YM#
  172.       End If=20
  173.       FA#=3DFA#-Abs(SY#/100)
  174.    Else=20
  175.       If SY#<0
  176.          SY#=3DSY#+GI#
  177.       End If=20
  178.    End If=20
  179.   =20
  180.    If FA#<0
  181.       KEY=3D4
  182.    End If=20
  183.   =20
  184.    If GR#<GM#+(WI#)
  185.       GR#=3DGR#+(GI#*WI#)
  186.       If GR#>GM#+(WI#)
  187.          GR#=3DGM#+(WI#)
  188.       End If=20
  189.    End If=20
  190.   =20
  191.    Y#=3DY#-SY#+GR#
  192.    X#=3DX#+SX#-WD#
  193.   =20
  194.    If X#<1 or X#>318
  195.       SX#=3D-(SX#*BW#)
  196.       If X#<1
  197.          X#=3D2
  198.       Else=20
  199.          X#=3D317
  200.       End If=20
  201.    End If=20
  202.   =20
  203.    If Y#>200
  204.       Y#=3D200
  205.       SY#=3DGM#+(WI#)
  206.    End If=20
  207.    If Y#<1
  208.       Y#=3D1
  209.       SY#=3DGM#+(WI#)
  210.    End If=20
  211.   =20
  212.    Ink 8
  213.    Plot OX,OY
  214.    Ink 2
  215.    Plot X#,Y#
  216.    FA=3DFA#
  217.    Text 3,9,Str$(FA)-" "
  218.   =20
  219.    Wait Vbl=20
  220. Loop=20
  221.  
  222. It should work... Damn Can't think of any thing funny 2 say....
  223. Jut herup tiddle whoops....
  224. there U go thats all from Me!
  225. BYE!!!!!!
  226.  
  227.  
  228. ------=_NextPart_000_004E_01BDD603.6ADC2460
  229. Content-Type: text/html;
  230.     charset="iso-8859-1"
  231. Content-Transfer-Encoding: quoted-printable
  232.  
  233. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
  234. <HTML>
  235. <HEAD>
  236.  
  237. <META content=3Dtext/html;charset=3Diso-8859-1 =
  238. http-equiv=3DContent-Type>
  239. <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
  240. </HEAD>
  241. <BODY bgColor=3D#ffffff>
  242. <DIV><FONT color=3D#000000 size=3D2>Hey! Here is more of my Code... This =
  243. Contains=20
  244. GRAVITY... WIND and ALSORT OF OTHER STUFF NEEDED 4 GAMES! Read on!=20
  245. BYE!</FONT></DIV>
  246. <DIV><FONT color=3D#000000 size=3D2>Hide On <BR>Cls 0<BR>Screen Open=20
  247. 0,320,256,64,Lowres<BR>Colour 1,$0<BR>Flash Off <BR>Curs Off <BR>Degree =
  248. <BR>Cls=20
  249. 0<BR>Colour 8,$777<BR>Colour 5,$F0<BR>Ink 5<BR>Box 0,0 To =
  250. 319,201</FONT></DIV>
  251. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  252. <DIV><FONT color=3D#000000 size=3D2>'    =
  253. X    =20
  254. <BR>'   /W\    <BR>'  /---\   =
  255. <BR>' /=20
  256. M|G \  <BR>'/-------\   </FONT></DIV>
  257. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  258. <DIV><FONT color=3D#000000 size=3D2>'   X,Y=20
  259. Coordinates<BR>X#=3D100<BR>Y#=3D100<BR>'   Weight Value=20
  260. <BR>WI#=3D0</FONT></DIV>
  261. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  262. <DIV><FONT color=3D#000000 size=3D2>'   Acceleration =
  263. Value  =20
  264. <BR>AC#=3D0<BR>'   Don't Remove: When ACL#=3D0 , ACL# Should =
  265. Really =3D 1=20
  266. <BR>'           &n=
  267. bsp;    =20
  268. Because to get no change from Multiplication=20
  269. <BR>'           &n=
  270. bsp;    =20
  271. You should multiply by 1 not 0=20
  272. <BR>'           &n=
  273. bsp;    =20
  274. This is the same with =
  275. weight...<BR>WI#=3DWI#+1<BR>AC#=3DAC#+1<BR>'  =20
  276. Maximum Force of Gravity <BR>GM#=3D3.0<BR>'   Maximum Speed on =
  277. Y=20
  278. axis<BR>YM#=3D7.0-(WI#/2)<BR>'   Maximum Speed on X=20
  279. axis<BR>XM#=3D7.0<BR>'   Gravity Increase =
  280. <BR>GI#=3D0.1<BR>'   Y=20
  281. Thrust Increase  <BR>YI#=3D0.1<BR>'   X Thrust=20
  282. Increase<BR>XI#=3D0.1<BR>'   Air Resistance  =20
  283. <BR>AR#=3D0.05<BR>'   Wind Value and Direction + or=20
  284. -<BR>WD#=3D0.0<BR>'   Maximum Rate of Wind Change : in seconds =
  285.  
  286. <BR>RW=3D5<BR>'   Speed of Wind Change =
  287. <BR>SW#=3D0.1<BR>'  =20
  288. Maximum Speed of Wind<BR>MS=3D2<BR>'   Fuel Amount =20
  289. <BR>FA#=3D100<BR>'   Wall Repulsion =
  290. Factor<BR>BW#=3D0.5</FONT></DIV>
  291. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  292. <DIV><FONT color=3D#000000 size=3D2>OX=3DX#<BR>OY=3DY#<BR>Do =
  293. <BR>   Ink=20
  294. 0<BR>   Plot X#,Y#<BR> &